home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 25 / AMIGAplus Sonderheft 25 (2000)(Falke)(DE)(Track 1 of 4)[!].iso / PublicDomain / Anwendungen / ASCIITable / Sources / ASCIITable.c
C/C++ Source or Header  |  1999-11-16  |  12KB  |  431 lines
  1. /* ASCIITable **** Version 2.00, R.Florac, 14 novembre 1999
  2.  
  3.    This program is freeware, do what you want with it, but
  4.    please, send me your ideas for improvements or bug reports.
  5.  
  6.    Compiles with SASC :
  7.    sc link NOSTACKCHECK OPT STRINGMERGE ASCIITable.c */
  8.  
  9. #include <stdio.h>                /* for sprintf function */
  10. #include <string.h>
  11. #include <libraries/gtlayout.h>
  12. #include <libraries/iffparse.h>
  13. #include <libraries/locale.h>
  14. #include <libraries/commodities.h>
  15. #include <workbench/workbench.h>
  16. #include <workbench/startup.h>
  17.  
  18. #include <proto/exec.h>
  19. #include <proto/dos.h>
  20. #include <proto/commodities.h>
  21. #include <proto/icon.h>
  22. #include <proto/intuition.h>
  23. #include <proto/locale.h>
  24. #include <proto/iffparse.h>
  25. #include <proto/gtlayout_protos.h>        /* you need the gtlayout stuff */
  26. #include <pragmas/gtlayout_pragmas.h>
  27.  
  28.  
  29. #define ID_FTXT MAKE_ID('F','T','X','T')
  30. #define ID_CHRS MAKE_ID('C','H','R','S')
  31. #define EVT_HOTKEY 1
  32.  
  33. #define CATALOG_VERSION 1
  34.  
  35.  
  36. /* Gadgets ID (have to be greater than 255) */
  37. enum { STRING = 256, PAGE, CANCEL, ABOUT, QUIT, COPY, CLEAR };
  38.  
  39. struct Library * CxBase, * GTLayoutBase, * IFFParseBase, * IconBase, * LocaleBase;
  40. struct IntuitionBase * IntuitionBase;
  41. APTR catalogue;
  42. CxObj * commodity = 0, * filter, * sender, * traductor;
  43. struct LayoutHandle * handle = 0;
  44. unsigned char * hotkeys = "lcommand a";
  45. unsigned char lettres[(128-32)*2], texte[32] = "", window_title[40];
  46.  
  47. char info_title[] = "ASCIITable 2.00 (©) R.Florac 14/10/99";
  48.  
  49. /* Localization tables *******************************************************/
  50. enum { COMMODITY_TITLE, DESCRIPTION,
  51.     PAGE_ID, COPY_ID, DELETE_ID, INFO_ID, QUIT_ID,
  52.     OPERATION_FAILED, OPERATION_SUCCESS, CHARACTER, HEXA_STRING, DECIMAL_STRING
  53. };
  54.  
  55. char * strings[] = {
  56.     "ASCII table commodity", "Uses the clipboard.device",
  57.     "Page", "Copy", "Clear", "Info", "Quit", "Operation failed", "Operation succeeded",
  58.     "Char:", ", Hexa:", ", Decimal:"
  59. };
  60.  
  61.  
  62. /* Commodity structure *******************************************************/
  63. struct NewBroker newbroker = {
  64.     NB_VERSION,     /* nb_Version - Version of the NewBroker structure */
  65.     "ASCIITable",   /* nb_Name - Name Commodities uses to identify this commodity */
  66.     0,            /* nb_Title - Title of commodity that appears in CXExchange */
  67.     0,            /* nb_Descr - Description of the commodity */
  68.     NBU_UNIQUE | NBU_NOTIFY,        /* nb_Unique - Tells CX not to launch another commodity with same name */
  69.     COF_SHOW_HIDE,  /* nb_Flags - Tells CX if this commodity has a window */
  70.     0,            /* nb_Pri - This commodity's priority */
  71.     0,            /* nb_Port - MsgPort CX talks to */
  72.     0            /* nb_ReservedChannel - reserved for later use */
  73. };
  74.  
  75.  
  76. void __regargs init_textes_gadgets (unsigned char first_letter)
  77. {   long i = 0, j;
  78.     for (j = 32;  j < 128;  j++)
  79.     {    lettres[i++] = first_letter++;    lettres[i++]=0; }
  80. }
  81.  
  82. void __regargs gadget_letter (char * label, long id)
  83. {
  84.     LT_New (handle, LA_Type, BUTTON_KIND, LA_NoKey, TRUE, LA_LabelText, label, LA_ID, id, TAG_DONE);
  85. }
  86.  
  87. void __regargs groupe_horizontal (char * letters, long line)
  88. {   long i;
  89.     LT_New (handle, LA_Type, HORIZONTAL_KIND, TAG_DONE);
  90.     for (i = 0;  i < 16;  i++)
  91.     gadget_letter (&letters[2*i], line+i);
  92.     LT_EndGroup (handle);
  93. }
  94.  
  95. unsigned char * __regargs GetString (long i)
  96. {   unsigned char * def = strings[i];
  97.     return (catalogue ? GetCatalogStr (catalogue, i, def) : def);
  98. }
  99.  
  100. __saveds __asm unsigned char * LocaleHookFunc (register __a0 struct Hook * UnusedHook, register __a2 APTR Unused, register __a1 long ID)
  101. {
  102.     return GetString(ID);
  103. }
  104.  
  105. struct Hook LocaleHook = { 0, 0, (HOOKFUNC) LocaleHookFunc, 0, 0 };
  106.  
  107. void __regargs set_string (char * t)
  108. {
  109.     LT_SetAttributes (handle, STRING, GTST_String, t, TAG_END);
  110. }
  111.  
  112. void close_window (void)
  113. {
  114.     LT_DeleteHandle (handle);
  115.     handle = 0;
  116. }
  117.  
  118. void __regargs set_title (char * t)
  119. {
  120.     SetWindowTitles (handle->Window, t, (char *) -1);
  121. }
  122.  
  123. void __regargs open_window (void)
  124. {
  125.     long i;
  126.  
  127.     handle = LT_CreateHandleTags (0, LAHN_LocaleHook, &LocaleHook,TAG_DONE);
  128.     if (handle)
  129.     {    LT_New (handle, LA_Type, VERTICAL_KIND, TAG_DONE);
  130.     {   for (i = 0;  i < 6;  i++)
  131.         groupe_horizontal (lettres + i * 32, 16 * i);
  132.         LT_New (handle, LA_Type, XBAR_KIND, TAG_DONE);
  133.         LT_New (handle, LA_Type, STRING_KIND, GTST_String, texte, GTST_MaxChars, 30, LA_ID, STRING, TAG_DONE);
  134.         LT_New (handle, LA_Type, HORIZONTAL_KIND, LAGR_SameSize, TRUE, LAGR_Spread, TRUE, TAG_DONE);
  135.         {
  136.         LT_New (handle, LA_Type, BUTTON_KIND, LA_LabelID, PAGE_ID, LA_ID, PAGE, TAG_DONE);
  137.         LT_New (handle, LA_Type, BUTTON_KIND, LA_LabelID, COPY_ID, LA_ID, COPY, TAG_DONE);
  138.         LT_New (handle, LA_Type, BUTTON_KIND, LA_LabelID, DELETE_ID, LA_ID, CLEAR, TAG_DONE);
  139.         LT_New (handle, LA_Type, BUTTON_KIND, LA_LabelID, INFO_ID, LA_ID, ABOUT, TAG_DONE);
  140.         LT_New (handle, LA_Type, BUTTON_KIND, LA_LabelID, QUIT_ID, LA_ID, QUIT, TAG_DONE);
  141.         LT_EndGroup (handle);
  142.         }
  143.         LT_EndGroup (handle);
  144.     }
  145.     if (! LT_Build (handle,
  146.         LAWN_Title,     info_title,
  147.         LAWN_BelowMouse,    TRUE,
  148.         WA_DepthGadget,    TRUE,
  149.         WA_DragBar,     TRUE,
  150.         WA_Activate,    TRUE,
  151.         WA_CloseGadget,    TRUE,
  152.         WA_RMBTrap,     TRUE,
  153.         LAWN_IDCMP,     IDCMP_CLOSEWINDOW | CHECKBOXIDCMP,
  154.     TAG_DONE))
  155.         close_window ();
  156.     }
  157. }
  158.  
  159. void __regargs copy (char * t)
  160. {   long error = 1;
  161.     struct IFFHandle * iff;
  162.  
  163.     if (IFFParseBase = OpenLibrary ("iffparse.library", 0L))
  164.     {    if (iff = AllocIFF ())
  165.     {   if (iff->iff_Stream = (ULONG) OpenClipboard (0))
  166.         {    InitIFFasClip (iff);
  167.         if (! OpenIFF (iff, IFFF_WRITE))
  168.         {   if (! PushChunk (iff, ID_FTXT, ID_FORM, IFFSIZE_UNKNOWN))
  169.             {    if (! PushChunk (iff, 0, ID_CHRS, IFFSIZE_UNKNOWN))
  170.             {   error = strlen (t);
  171.                 if (WriteChunkBytes (iff, t, error) == error)
  172.                 error = 0;
  173.             }
  174.             if (error == 0) error = PopChunk (iff);
  175.             }
  176.             if (error == 0) error = PopChunk (iff);
  177.             CloseIFF(iff);
  178.         }
  179.         CloseClipboard ((struct ClipboardHandle *) iff->iff_Stream);
  180.         }
  181.         FreeIFF (iff);
  182.     }
  183.     CloseLibrary (IFFParseBase);
  184.     }
  185.     if (error)
  186.     set_title (GetString(OPERATION_FAILED));
  187.     else
  188.     set_title (GetString(OPERATION_SUCCESS));
  189. }
  190.  
  191. BOOL open_all (void)
  192. {   if (LocaleBase = OpenLibrary ("locale.library",38))     /* Perhaps some library versions to change... */
  193.     catalogue = OpenCatalog (NULL, "ASCIITable.catalog", OC_Version, CATALOG_VERSION, TAG_DONE);
  194.     if (IntuitionBase = (struct IntuitionBase *) OpenLibrary ("intuition.library", 37))
  195.     if (GTLayoutBase = OpenLibrary ("gtlayout.library", 39L))
  196.         if (CxBase = OpenLibrary ("commodities.library", 37) )
  197.         {    newbroker.nb_Title = GetString (COMMODITY_TITLE);
  198.         newbroker.nb_Descr = GetString (DESCRIPTION);
  199.         return 1;
  200.         }
  201.     return 0;
  202. }
  203.  
  204. void close_all (void)
  205. {
  206.     if (catalogue)
  207.     CloseCatalog (catalogue);
  208.     if (LocaleBase)
  209.     CloseLibrary (LocaleBase);
  210.     if (commodity)
  211.     DeleteCxObjAll (commodity);
  212.     if (newbroker.nb_Port)
  213.     {    struct Message * message;
  214.     while (message = GetMsg (newbroker.nb_Port))
  215.         ReplyMsg (message);
  216.     DeletePort (newbroker.nb_Port);
  217.     }
  218.     if (CxBase)
  219.     CloseLibrary (CxBase);
  220.     if (GTLayoutBase)
  221.     CloseLibrary (GTLayoutBase);
  222.     if (IntuitionBase)
  223.     CloseLibrary ((struct Library *) IntuitionBase);
  224. }
  225.  
  226. long __regargs handle_commodity (CxMsg * message)
  227. {   ULONG type_message = CxMsgType (message), identificateur = CxMsgID (message);
  228.     long end = 0;
  229.     ReplyMsg ((struct Message *) message);
  230.     switch (type_message)
  231.     {    case CXM_IEVENT:
  232.         if (identificateur == EVT_HOTKEY)        /* Combinaison touches d'appel */
  233.         if (handle)
  234.             close_window ();
  235.         else
  236.             open_window ();
  237.         break;
  238.     case CXM_COMMAND:
  239.         switch (identificateur)
  240.         {    case CXCMD_DISABLE:        /* Désactivation de la commodité */
  241.             ActivateCxObj (commodity, 0);  break;
  242.         case CXCMD_ENABLE:        /* Activation de la commodité */
  243.             ActivateCxObj (commodity, 1);  break;
  244.         case CXCMD_DISAPPEAR:
  245.             close_window ();
  246.             break;
  247.         case CXCMD_KILL:
  248.             end = 1;        break;
  249.         case CXCMD_UNIQUE:        /* On a tenté de relancer... */
  250.             if (handle)
  251.             {    end = 1;    break;  }
  252.         case CXCMD_APPEAR:
  253.             if (handle)
  254.             WindowToFront (handle->Window);
  255.             else
  256.             open_window ();
  257.         }
  258.     }
  259.